10 PRINT"[147][144]";:POKE53281,12:POKE53280,12:POKE198,.
15 PRINT"[147][144]PRINT TO S[146]CREEN OR P[146]RINTER?":WAIT198,1
16 GETP$:PRINT"[147]"CHR$(14);:IFP$="P"THENOPEN4,4,7
20 FORI=1TO22
30 READA$
40 IFA$="[157]"THENGOSUB80:CLOSE4:PRINTCHR$(142):GOTO150
50 PRINTA$:IFP$="P"THENPRINT#4,A$:NEXT:GOTO20
60 NEXT
70 GOSUB80:GOTO20
80 PRINT"      PRESS A KEY TO CONTINUE[146]";
90 GETB$:IFB$=""THEN90
100 PRINT"[147]":RETURN
150 PRINT"[147]LOAD"CHR$(34)"CLUB LIBRARIAN*"CHR$(34)",8":PRINT"RUN"
152 PRINT"";:POKE198,8:FORI=1TO7:POKE630+I,13:NEXT:STOP
10000 DATA"
10002 [131]"
10004 DATA"
10005 [131]"(null)HE LEN(null)(null)PEEK (null)RIGHT$PEEK(null)ATN(null)RIGHT$ATN(null)
10010 DATA"BY:
10020 [131]"ASCREDIE MID$. (null)AYBERGER
10030 DATA"14524 '[206]' [211]TREET
10040 [131]"(null)MAHA, (null)VAL 68137
10050 DATA"
10060 [131]"(null)HE LEN(null)(null)PEEK (null)RIGHT$PEEK(null)ATN(null)RIGHT$ATN(null) IS DESIGNED TO HELP 
10070 DATA"INDIVIDUALS AND CLUBS PRODUCE SUMMARY 
10080 [131]"AND DETAILED REPORTS FOR EACH DISKETTE 
10090 DATA"WITHIN THEIR COLLECTION.  [213]P TO 900 
10100 [131]"PROGRAMS CAN BE RECORDED IN EACH OF 21 
10110 DATA"CATAGORIES.  [212]HE PROGRAM CAN EASILY BE 
10120 [131]"CUSTOMIZED BY CHANGING THE LOAD/SAVE 
10130 DATA"OPTIONS AND CLUB INFORMATION STORED IN 
10140 [131]"DATA STATEMENTS AT THE END OF THE 
10150 DATA"PROGRAM.
10160 [131]"
10162 DATA"
10164 [131]"
10170 DATA"[206][207][212][197][211].....
10180 [131]"(null)RIOR TO USING THE LENLUB (null)IBRARIAN YOU 
10190 DATA"SHOULD CREATE A '[204]IBRARY [196]ISK' BY USING
10200 [131]"A FILE COPIER SUCH AS '(null)STR$ ASCRIGHT$(null)VAL LEN(null)(null)RIGHT$VAL(null)' 
10210 DATA"TO COPY THE FOLLOWING FILES ONTO A 
10220 [131]"NEWLY FORMATED DISKETTE.
10240 DATA"1. [195][204][213][194] [204][201][194][210][193][210][201][193][206]
10250 [131]"2. LEN(null)(null)PEEK (null)RIGHT$PEEK.STR$RIGHT$(null)    3. LEN(null)(null)PEEK (null)RIGHT$PEEK.(null)ATN(null)RIGHT$
10260 DATA"4. [195][204][213][194] [204][201][194].[211][207][210][212]   5. [195][204][213][194] [204][201][194].[206][207][212][197][211]
10270 [131]"
10280 DATA"[212]HE NEXT THING THAT YOU SHOULD DO IS 
10290 [131]"DETERMINE HOW YOU WANT TO CATAGORIZE 
10300 DATA"YOUR LIBRARY COLLECTION.  [217]OU CAN HAVE 
10310 [131]"UP TO 21 SEPERATE LOAD/SAVE OPTIONS 
10320 DATA"WITH UP TO 900 ITEMS IN EACH.  [212]HE 
10330 [131]"INFORMATION FOR THESE IS STORED IN DATA
10340 DATA"STATEMENTS AT THE END OF THE PROGRAM 
10350 [131]"AND CAN BE CHANGED TO FIT YOUR NEEDS.  
10360 DATA"[194]E SURE TO CHANGE THE NUMBER OF 
10370 [131]"LOAD/SAVE OPTIONS TO MATCH THE NUMBER 
10380 DATA"OF OPTIONS YOU HAVE IN THE DATA 
10390 [131]"STATEMENTS. (null)HIS NUMBER IS CONTAINED IN
10400 DATA"A DATA STATEMENT FOLLOWED BY A REM 
10410 [131]"STATEMENT INDICATING THAT IT IS THE 
10420 DATA"NUMBER OF LOAD/SAVE OPTIONS. [212]HE LAST 
10430 [131]"TWO DATA STATEMENTS IN THE PROGRAM 
10440 DATA"CONTAIN THE CLUB NAME AND CAN ALSO BE 
10450 [131]"CHANGED TO FIT YOUR NEEDS.  ATNFTER 
10460 DATA"MAKING THESE CHANGES BE SURE TO SAVE 
10470 [131]"THE PROGRAM SO THAT YOU CAN USE IT WITH
10480 DATA"YOUR CHOICES.
10490 [131]"
10500 DATA"[201]F YOU HAVE A DUAL DRIVE OR TWO 1541S 
10510 [131]"SELECT THE EQUIPMENT SETUP OPTION TO 
10520 DATA"CONFIGURE THE PROGRAM FOR YOUR SYSTEM.
10530 [131]"
10540 DATA"[212]O USE THE PROGRAM YOU CAN EITHER LOAD 
10550 [131]"AN EXISTING FILE AND ADD TO IT OR YOU 
10560 DATA"CAN SELECT THE ADD OPTION AND CREATE A 
10570 [131]"NEW FILE.  RIGHT$TEMS CAN BE SELECTIVELY 
10580 DATA"ADDED FROM THE DIRECTORY.  [195]ARE SHOULD 
10590 [131]"BE USED IN SELECTING DIRECTROY ENTRIES 
10600 DATA"TO BE INCLUDED IN YOUR LIBRARY SINCE 
10610 [131]"THE PROGRAM DOES NOT INCLUDE AN EDIT 
10620 DATA"OPTION.  [201]T WAS WRITTEN WITHOUT ONE 
10630 [131]"SINCE SUCH A ROUTINE TAKES UP A LOT OF 
10640 DATA"MEMORY AND ONCE RECORDED OUR CLUB DOES
10650 [131]"NOT CHANGE WHAT IS ON A DISKETTE.  (null)NCE
10660 DATA"YOU HAVE RECORDED ALL THE ITEMS YOU 
10670 [131]"WANT IN A CATAGORY YOU SHOULD SAVE THE 
10680 DATA"FILE.  [217]OU CAN THEN VIEW YOUR ENTRIES 
10690 [131]"AND/OR PRINT OUT A DETAILED REPORT FOR 
10700 DATA"EACH DISKETTE REFERENCED IN THE 
10710 [131]"CATAGORY.  (null)HE FILE CAN BE SORTED BY 
10720 DATA"DISK ID# OR FILENAME AT ANY TIME.
10730 [131]"
10740 DATA"[212]HE TWO PRINTER OPTIONS IDENTIFIED AS 
10750 [131]"BEING FOR LENOMMODORE PRINTERS SHOULD 
10760 DATA"WORK WITH ANY PRINTER PROVIDED THAT THE
10770 [131]"SECONDARY ADDRESS IS CORRECT FOR IT.  
10780 DATA"[201]F THE PROGRAM IS NOT PRINTING PROPERLY
10790 [131]"WITH YOUR PRINTER TRY CHANGING THE 
10800 DATA"SECONDARY ADDRESS.  [201]T IS SET TO 
10810 [131]"DEFAULT TO 4 AND CAN BE CHANGED USING 
10820 DATA"THE '[197]QUIPMENT [211]ETUP' OPTION. [201]F THIS 
10830 [131]"DOESN'T WORK YOU WILL NEED TO CHANGE 
10840 DATA"THE PRINTER CODES IN LINES 200-299.  
10850 [131]"
10860 DATA"[212]HE '[211][213][205][205][193][210][217] [210][197][208][207][210][212]' PRINT OPTION WILL 
10870 [131]"GIVE YOU A LIST OF EVERY CATAGORY IN 
10880 DATA"YOUR LIBRARY AND THE NAMES/ID#S OF EACH
10890 [131]"DISK RECORDED IN THE CATAGORY.  (null)HE 
10900 DATA"TOTAL NUMBER OF FILES AND DISKS WILL BE
10910 [131]"PRINTED AT THE END OF THE REPORT.  (null)O 
10920 DATA"OBTAIN A '[211][213][205][205][193][210][217] [210][197][208][207][210][212]' SELECT IT 
10930 [131]"FROM THE PRINT OPTIONS MENU. ATN ASCRIGHT$(null)VAL 
10940 DATA"[205][213][211][212] [197][216][201][211][212] [198][207][210] [197][193][195][200] [204][207][193][196]/[211][193][214][197] [207][208][212][201][207][206].  
10950 [131]"RIGHT$N CASE YOUR LIBRARY IS TOO LARGE TO 
10960 DATA"FIT ON A SINGLE DISKETTE THE SUMMARY 
10970 [131]"REPORT GIVES YOU AN OPTION TO ABORT OR 
10980 DATA"RETRY WHEN A FILE IS NOT FOUND.  [212]HUS A
10990 [131]"FILE DOESN'T HAVE TO BE ON THE '(null)IBRARY
11000 DATA"[196]ISK'.  [215]HEN PROMPTED CHANGE DISKETTES 
11010 [131]"AND SELECT THE 'RETRY' OPTION.  (null)O 
11020 DATA"AVOID FREQUENT CHANGING OF DISKETTES 
11030 [131]"LOAD/SAVE OPTIONS SHOULD BE SEQUENCED 
11040 DATA"SO THAT ONCE YOU CHANGE DISKETTES YOU 
11050 [131]"DO NOT HAVE TO CHANGE THEM AGAIN.
11060 DATA"
11070 [131]"
11080 DATA"[201] HOPE THAT YOU WILL FIND THIS PROGRAM
11082 [131]"TO BE BUG FREE AND USEFUL.  RIGHT$F YOU
11084 DATA"DO ENCOUNTER A PROBLEM PLEASE LET ME
11086 [131]"KNOW.  RIGHT$ WOULD ALSO LIKE TO HEAR OF
11088 DATA"ANY PROGRAM IMPROVEMENT IDEAS YOU
11090 [131]"HAVE.  (null)LEASE SEND ALL CORRESPONDENCE
11092 DATA"AND CONTRIBUTIONS YOU CARE TO MAKE TO..
11094 [131]"
11096 DATA"[198][210][197][196][201][197][160][202]. [204][193][217][194][197][210][199][197][210]
11098 [131]"14524 '(null)'CLOSE(null)TREET
11100 DATA"[207][205][193][200][193],[160][206][197][160]68137
11102 [131]"
11104 DATA"
11106 [131]"LEFT$ATN(null)(null)(null)CLOSELEN(null)(null)(null)(null)(null)RIGHT$(null)CHR$!!LEFT$ATN(null)(null)(null)CLOSELEN(null)(null)(null)(null)(null)RIGHT$(null)CHR$!!STOP
12000 DATA"[157]